home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tb.d64 / synth sample.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  17KB  |  35 lines
  1. 20 EB=PEEK(45)+256*PEEK(46):IFPEEK(EB-11)<>24THENSTOP
  2. 30 SYSEB-11:POKE53281,0:POKE53280,6:PRINTCHR$(5)CHR$(147):DIMP(9,1)
  3. 99 PRINT"'SYNTH SAMPLE'"
  4. 100 PRINT"SELECTION:"
  5. 101 PRINT"[163][163][163][163][163][163][163][163][163][163]"
  6. 102 RESTORE:READN:FORK=1TON:READU$,P(K,0),P(K,1)
  7. 110 PRINTMID$(STR$(K),2)") "U$:NEXT
  8. 180 PRINT"A) STOP A TUNE"
  9. 190 PRINT"B) QUIT"
  10. 195 PRINT"C) QUIT BUT KEEP TUNE PLAYING"
  11. 200 PRINT"CHOICE?  [157]";
  12. 210 GETU$:IFPEEK(731)=0THENPRINT:PRINT:PRINT"(READY)[145][145]"TAB(8);
  13. 218 IFU$=""THEN210
  14. 220 IFU$="C"THEN9000
  15. 221 IFU$="B"THENGOSUB9500:POKE731,0:SYS730:GOTO9000
  16. 222 IFU$="A"THENGOSUB9500:GOTO99
  17. 225 A=VAL(U$):IFA=0ORA>NTHEN210
  18. 230 PRINTU$:PRINT:PRINT"("A"[157] )   "       "
  19. 250 [141]9500:[151]731,A[170]P(A,0)[172]16[170]P(A,1)[172]64:[158]730:[137]99
  20. 9000 [153]:[153]:[153]:[128]:[153]"LOAD":[137]99
  21. 9500 [151]731,10:[158]730:[142]
  22. 59997 [143] ** DATA CONSISTS OF NUMBER
  23. 59998 [143] ** OF SONGS, NAMES & POLY
  24. 59999 [143] ** SETTINGS.
  25. 60000 [131] 9
  26. 60010 [131]"THEME FROM 'STATIONARY ARK' -ADAPTED",1,2
  27. 60020 [131]"'SATURDAYS IN SILEZIA'",0,0
  28. 60030 [131]"'SPIRAL' EXCERPT (VANGELIS)",0,0
  29. 60040 [131]"'TUBULAR BELLS' (OLDFIELD)",0,0
  30. 60050 [131]"CLOSING THEME FROM 'MAGIC SHADOWS'",0,0
  31. 60060 [131]"THEME FROM CLOCKWORK ORANGE (CARLOS)",0,0
  32. 60070 [131]"'OXYGENE2' (JARRE)",0,0
  33. 60080 [131]"'CANON' (PACHELBEL)",0,0
  34. 60090 [131]"'ENOLA GAY' (O.M.I.T.D.)",0,0
  35.